home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 4 / Apprentice-Release4.iso / Languages / MPW Oberon 2.1168 / OInterfaces / MediaHandlers.mod < prev    next >
Encoding:
Text File  |  1995-08-10  |  9.3 KB  |  243 lines  |  [TEXT/MPS ]
  1. (*
  2.      File:        MediaHandlers.mod
  3.  
  4.      Contains:    QuickTime Interfaces.
  5.  
  6.      Version:    Technology:    QuickTime 2.0
  7.                  Package:    Universal Interfaces 2.0 in “MPW Latest” on ETO #17
  8.  
  9.      Copyright:    © 1984-1995 by Apple Computer, Inc.
  10.                  All rights reserved.
  11.  
  12.      Bugs?:        If you find a problem with this file, use the Apple Bug Reporter
  13.                  stack.  Include the file and version information (from above)
  14.                  in the problem description and send to:
  15.                      Internet:    apple.bugs.applelink.apple.com
  16.                      AppleLink:    APPLE.BUGS
  17.  
  18. *)
  19.  
  20. (*$TAGS-*)
  21. (*$CALLING PASCAL*)
  22. MODULE MediaHandlers;
  23.  
  24. IMPORT SYSTEM, Types, Quickdraw, Components, ImageCompression, Movies;
  25.  
  26. (* $PUSH*)
  27. (* $ALIGN MAC68K*)
  28. (* $LibExport+*)
  29.  
  30. CONST
  31.     handlerHasSpatial*            = ASH(1,0);
  32.     handlerCanClip*                = ASH(1,1);
  33.     handlerCanMatte*                = ASH(1,2);
  34.     handlerCanTransferMode*        = ASH(1,3);
  35.     handlerNeedsBuffer*            = ASH(1,4);
  36.     handlerNoIdle*                = ASH(1,5);
  37.     handlerNoScheduler*            = ASH(1,6);
  38.     handlerWantsTime*            = ASH(1,7);
  39.     handlerCGrafPortOnly*        = ASH(1,8);
  40.  
  41. (* media task flags *)
  42.     mMustDraw*                    = ASH(1,3);
  43.     mAtEnd*                        = ASH(1,4);
  44.     mPreflightDraw*                = ASH(1,5);
  45.     mSyncDrawing*                = ASH(1,6);
  46.  
  47. (* media task result flags *)
  48.     mDidDraw*                    = ASH(1,0);
  49.     mNeedsToDraw*                = ASH(1,2);
  50.     mDrawAgain*                    = ASH(1,3);
  51.     mPartialDraw*                = ASH(1,4);
  52.  
  53.     forceUpdateRedraw*            = ASH(1,0);
  54.     forceUpdateNewBuffer*        = ASH(1,1);
  55.  
  56.  
  57. TYPE
  58.     GetMovieCompleteParams* = RECORD
  59.         version*:                INTEGER;
  60.         theMovie*:                Movies.Movie;
  61.         theTrack*:                Movies.Track;
  62.         theMedia*:                Movies.Media;
  63.         movieScale*:                Movies.TimeScale;
  64.         mediaScale*:                Movies.TimeScale;
  65.         movieDuration*:            Movies.TimeValue;
  66.         trackDuration*:            Movies.TimeValue;
  67.         mediaDuration*:            Movies.TimeValue;
  68.         effectiveRate*:            Types.Fixed;
  69.         timeBase*:                Movies.TimeBase;
  70.         volume*:                    INTEGER;
  71.         width*:                    Types.Fixed;
  72.         height*:                    Types.Fixed;
  73.         trackMovieMatrix*:        ImageCompression.MatrixRecord;
  74.         moviePort*:                Quickdraw.CGrafPtr;
  75.         movieGD*:                Quickdraw.GDHandle;
  76.         trackMatte*:                Quickdraw.PixMapHandle;
  77.     END;
  78.  
  79.  
  80. PROCEDURE MediaInitialize*(mh: Movies.MediaHandler; VAR gmc: GetMovieCompleteParams): Components.ComponentResult;
  81.     (*$IF NOT GENERATINGCFM*)
  82.     INLINE PASCAL $2F3C, $4, $501, $7000, $A82A;
  83.     (*$END*)
  84. PROCEDURE MediaSetHandlerCapabilities*(mh: Movies.MediaHandler; flags: LONGINT; flagsMask: LONGINT): Components.ComponentResult;
  85.     (*$IF NOT GENERATINGCFM*)
  86.     INLINE PASCAL $2F3C, $8, $502, $7000, $A82A;
  87.     (*$END*)
  88. PROCEDURE MediaIdle*(mh: Movies.MediaHandler; atMediaTime: Movies.TimeValue; flagsIn: LONGINT; VAR flagsOut: LONGINT; (*CONST*)VAR movieTime: Movies.TimeRecord): Components.ComponentResult;
  89.     (*$IF NOT GENERATINGCFM*)
  90.     INLINE PASCAL $2F3C, $10, $503, $7000, $A82A;
  91.     (*$END*)
  92. PROCEDURE MediaGetMediaInfo*(mh: Movies.MediaHandler; h: Types.Handle): Components.ComponentResult;
  93.     (*$IF NOT GENERATINGCFM*)
  94.     INLINE PASCAL $2F3C, $4, $504, $7000, $A82A;
  95.     (*$END*)
  96. PROCEDURE MediaPutMediaInfo*(mh: Movies.MediaHandler; h: Types.Handle): Components.ComponentResult;
  97.     (*$IF NOT GENERATINGCFM*)
  98.     INLINE PASCAL $2F3C, $4, $505, $7000, $A82A;
  99.     (*$END*)
  100. PROCEDURE MediaSetActive*(mh: Movies.MediaHandler; enableMedia: BOOLEAN): Components.ComponentResult;
  101.     (*$IF NOT GENERATINGCFM*)
  102.     INLINE PASCAL $2F3C, $2, $506, $7000, $A82A;
  103.     (*$END*)
  104. PROCEDURE MediaSetRate*(mh: Movies.MediaHandler; rate: Types.Fixed): Components.ComponentResult;
  105.     (*$IF NOT GENERATINGCFM*)
  106.     INLINE PASCAL $2F3C, $4, $507, $7000, $A82A;
  107.     (*$END*)
  108. PROCEDURE MediaGGetStatus*(mh: Movies.MediaHandler; VAR statusErr: Components.ComponentResult): Components.ComponentResult;
  109.     (*$IF NOT GENERATINGCFM*)
  110.     INLINE PASCAL $2F3C, $4, $508, $7000, $A82A;
  111.     (*$END*)
  112. PROCEDURE MediaTrackEdited*(mh: Movies.MediaHandler): Components.ComponentResult;
  113.     (*$IF NOT GENERATINGCFM*)
  114.     INLINE PASCAL $2F3C, 0, $509, $7000, $A82A;
  115.     (*$END*)
  116. PROCEDURE MediaSetMediaTimeScale*(mh: Movies.MediaHandler; newTimeScale: Movies.TimeScale): Components.ComponentResult;
  117.     (*$IF NOT GENERATINGCFM*)
  118.     INLINE PASCAL $2F3C, $4, $50A, $7000, $A82A;
  119.     (*$END*)
  120. PROCEDURE MediaSetMovieTimeScale*(mh: Movies.MediaHandler; newTimeScale: Movies.TimeScale): Components.ComponentResult;
  121.     (*$IF NOT GENERATINGCFM*)
  122.     INLINE PASCAL $2F3C, $4, $50B, $7000, $A82A;
  123.     (*$END*)
  124. PROCEDURE MediaSetGWorld*(mh: Movies.MediaHandler; aPort: Quickdraw.CGrafPtr; aGD: Quickdraw.GDHandle): Components.ComponentResult;
  125.     (*$IF NOT GENERATINGCFM*)
  126.     INLINE PASCAL $2F3C, $8, $50C, $7000, $A82A;
  127.     (*$END*)
  128. PROCEDURE MediaSetDimensions*(mh: Movies.MediaHandler; width: Types.Fixed; height: Types.Fixed): Components.ComponentResult;
  129.     (*$IF NOT GENERATINGCFM*)
  130.     INLINE PASCAL $2F3C, $8, $50D, $7000, $A82A;
  131.     (*$END*)
  132. PROCEDURE MediaSetClip*(mh: Movies.MediaHandler; theClip: Quickdraw.RgnHandle): Components.ComponentResult;
  133.     (*$IF NOT GENERATINGCFM*)
  134.     INLINE PASCAL $2F3C, $4, $50E, $7000, $A82A;
  135.     (*$END*)
  136. PROCEDURE MediaSetMatrix*(mh: Movies.MediaHandler; VAR trackMovieMatrix: ImageCompression.MatrixRecord): Components.ComponentResult;
  137.     (*$IF NOT GENERATINGCFM*)
  138.     INLINE PASCAL $2F3C, $4, $50F, $7000, $A82A;
  139.     (*$END*)
  140. PROCEDURE MediaGetTrackOpaque*(mh: Movies.MediaHandler; VAR trackIsOpaque: BOOLEAN): Components.ComponentResult;
  141.     (*$IF NOT GENERATINGCFM*)
  142.     INLINE PASCAL $2F3C, $4, $510, $7000, $A82A;
  143.     (*$END*)
  144. PROCEDURE MediaSetGraphicsMode*(mh: Movies.MediaHandler; mode: LONGINT; (*CONST*)VAR opColor: Quickdraw.RGBColor): Components.ComponentResult;
  145.     (*$IF NOT GENERATINGCFM*)
  146.     INLINE PASCAL $2F3C, $8, $511, $7000, $A82A;
  147.     (*$END*)
  148. PROCEDURE MediaGetGraphicsMode*(mh: Movies.MediaHandler; VAR mode: LONGINT; VAR opColor: Quickdraw.RGBColor): Components.ComponentResult;
  149.     (*$IF NOT GENERATINGCFM*)
  150.     INLINE PASCAL $2F3C, $8, $512, $7000, $A82A;
  151.     (*$END*)
  152. PROCEDURE MediaGSetVolume*(mh: Movies.MediaHandler; volume: INTEGER): Components.ComponentResult;
  153.     (*$IF NOT GENERATINGCFM*)
  154.     INLINE PASCAL $2F3C, $2, $513, $7000, $A82A;
  155.     (*$END*)
  156. PROCEDURE MediaSetSoundBalance*(mh: Movies.MediaHandler; balance: INTEGER): Components.ComponentResult;
  157.     (*$IF NOT GENERATINGCFM*)
  158.     INLINE PASCAL $2F3C, $2, $514, $7000, $A82A;
  159.     (*$END*)
  160. PROCEDURE MediaGetSoundBalance*(mh: Movies.MediaHandler; VAR balance: INTEGER): Components.ComponentResult;
  161.     (*$IF NOT GENERATINGCFM*)
  162.     INLINE PASCAL $2F3C, $4, $515, $7000, $A82A;
  163.     (*$END*)
  164. PROCEDURE MediaGetNextBoundsChange*(mh: Movies.MediaHandler; VAR when: Movies.TimeValue): Components.ComponentResult;
  165.     (*$IF NOT GENERATINGCFM*)
  166.     INLINE PASCAL $2F3C, $4, $516, $7000, $A82A;
  167.     (*$END*)
  168. PROCEDURE MediaGetSrcRgn*(mh: Movies.MediaHandler; rgn: Quickdraw.RgnHandle; atMediaTime: Movies.TimeValue): Components.ComponentResult;
  169.     (*$IF NOT GENERATINGCFM*)
  170.     INLINE PASCAL $2F3C, $8, $517, $7000, $A82A;
  171.     (*$END*)
  172. PROCEDURE MediaPreroll*(mh: Movies.MediaHandler; time: Movies.TimeValue; rate: Types.Fixed): Components.ComponentResult;
  173.     (*$IF NOT GENERATINGCFM*)
  174.     INLINE PASCAL $2F3C, $8, $518, $7000, $A82A;
  175.     (*$END*)
  176. PROCEDURE MediaSampleDescriptionChanged*(mh: Movies.MediaHandler; index: LONGINT): Components.ComponentResult;
  177.     (*$IF NOT GENERATINGCFM*)
  178.     INLINE PASCAL $2F3C, $4, $519, $7000, $A82A;
  179.     (*$END*)
  180. PROCEDURE MediaHasCharacteristic*(mh: Movies.MediaHandler; characteristic: Types.OSType; VAR hasIt: BOOLEAN): Components.ComponentResult;
  181.     (*$IF NOT GENERATINGCFM*)
  182.     INLINE PASCAL $2F3C, $8, $51A, $7000, $A82A;
  183.     (*$END*)
  184. PROCEDURE MediaGetOffscreenBufferSize*(mh: Movies.MediaHandler; VAR bounds: Types.Rect; depth: INTEGER; ctab: Quickdraw.CTabHandle): Components.ComponentResult;
  185.     (*$IF NOT GENERATINGCFM*)
  186.     INLINE PASCAL $2F3C, $A, $51B, $7000, $A82A;
  187.     (*$END*)
  188. PROCEDURE MediaSetHints*(mh: Movies.MediaHandler; hints: LONGINT): Components.ComponentResult;
  189.     (*$IF NOT GENERATINGCFM*)
  190.     INLINE PASCAL $2F3C, $4, $51C, $7000, $A82A;
  191.     (*$END*)
  192. PROCEDURE MediaGetName*(mh: Movies.MediaHandler; VAR name: Types.Str255; requestedLanguage: LONGINT; VAR actualLanguage: LONGINT): Components.ComponentResult;
  193.     (*$IF NOT GENERATINGCFM*)
  194.     INLINE PASCAL $2F3C, $C, $51D, $7000, $A82A;
  195.     (*$END*)
  196. PROCEDURE MediaForceUpdate*(mh: Movies.MediaHandler; forceUpdateFlags: LONGINT): Components.ComponentResult;
  197.     (*$IF NOT GENERATINGCFM*)
  198.     INLINE PASCAL $2F3C, $4, $51E, $7000, $A82A;
  199.     (*$END*)
  200. PROCEDURE MediaGetDrawingRgn*(mh: Movies.MediaHandler; VAR partialRgn: Quickdraw.RgnHandle): Components.ComponentResult;
  201.     (*$IF NOT GENERATINGCFM*)
  202.     INLINE PASCAL $2F3C, $4, $521, $7000, $A82A;
  203.     (*$END*)
  204.  
  205. CONST
  206.     kMediaInitializeSelect*        = $501;
  207.     kMediaSetHandlerCapabilitiesSelect* = $502;
  208.     kMediaIdleSelect*            = $503;
  209.     kMediaGetMediaInfoSelect*    = $504;
  210.     kMediaPutMediaInfoSelect*    = $505;
  211.     kMediaSetActiveSelect*        = $506;
  212.     kMediaSetRateSelect*            = $507;
  213.     kMediaGGetStatusSelect*        = $508;
  214.     kMediaTrackEditedSelect*        = $509;
  215.     kMediaSetMediaTimeScaleSelect* = $50A;
  216.     kMediaSetMovieTimeScaleSelect* = $50B;
  217.     kMediaSetGWorldSelect*        = $50C;
  218.     kMediaSetDimensionsSelect*    = $50D;
  219.     kMediaSetClipSelect*            = $50E;
  220.     kMediaSetMatrixSelect*        = $50F;
  221.     kMediaGetTrackOpaqueSelect*    = $510;
  222.     kMediaSetGraphicsModeSelect*    = $511;
  223.     kMediaGetGraphicsModeSelect*    = $512;
  224.     kMediaGSetVolumeSelect*        = $513;
  225.     kMediaSetSoundBalanceSelect*    = $514;
  226.     kMediaGetSoundBalanceSelect*    = $515;
  227.     kMediaGetNextBoundsChangeSelect* = $516;
  228.     kMediaGetSrcRgnSelect*        = $517;
  229.     kMediaPrerollSelect*            = $518;
  230.     kMediaSampleDescriptionChangedSelect* = $519;
  231.     kMediaHasCharacteristicSelect* = $51A;
  232.     kMediaGetOffscreenBufferSizeSelect* = $51B;
  233.     kMediaSetHintsSelect*        = $51C;
  234.     kMediaGetNameSelect*            = $51D;
  235.     kMediaForceUpdateSelect*        = $51E;
  236.     kMediaGetDrawingRgnSelect*    = $521;
  237.  
  238.  
  239. (* $ALIGN RESET*)
  240. (* $POP*)
  241.  
  242.  END MediaHandlers.
  243.